home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok83.lha / SpecialStrings1.0 / SpecialStrings.mod < prev   
Encoding:
Text File  |  1993-08-15  |  1.1 KB  |  37 lines
  1. (*************************************************************************
  2.  
  3. :Program.    SpecialStrings.mod
  4. :Contents.   some spacial string routines
  5. :Author.     Hartmut Goebel [hG]
  6. :Address.    Aufseßplatz 5, D-8500 Nürnberg 40
  7. :Address.    UseNet: hartmut@oberon.nbg.sub.org
  8. :Address.    Z-Netz: hartmut@asn.zer   Fido: 2:246/81.1
  9. :Copyright.  Copyright © 1990 by Hartmut Goebel
  10. :Language.   Oberon-2
  11. :Translator. Amiga Oberon V2.45
  12. :Imports.    Printf (Volker Rudolph)
  13. :History.    V1.0, 12 Nov 1992 [hG]
  14. :Date.       12 Nov 1992 22:00:08
  15.  
  16. (* $StackChk- $NilChk- $RangeChk- $CaseChk- $OvflChk- $ReturnChk- $ClearVars- *)
  17.  
  18. *************************************************************************)
  19.  
  20. MODULE SpecialStrings;
  21.  
  22. IMPORT
  23.   pf := Printf,
  24.   y  := SYSTEM;
  25.  
  26. PROCEDURE MakeUnique * (VAR unique: ARRAY OF CHAR;
  27.                               base: ARRAY OF CHAR; (* $CopyArrays- *)
  28.                         VAR    num: INTEGER): BOOLEAN;
  29. BEGIN
  30.   IF num = MAX(INTEGER) THEN RETURN FALSE; END;
  31.   INC(num);
  32.   pf.SPrintf2(unique,"%s.%ld",y.ADR(base),num);
  33.   RETURN TRUE;
  34. END MakeUnique;
  35.  
  36. END SpecialStrings.
  37.